home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / blanker / madhouse / install&remove / install < prev    next >
Encoding:
Text File  |  1996-10-24  |  15.4 KB  |  600 lines
  1. ; Installation script for Madhouse V2.12
  2. ; Revision 2 - multilingual, docs in lha archive, size-checks.
  3. ; Revision 3 - changed for Madhouse 1.2
  4. ; Revision 4 - changed for Madhouse 2
  5. ; Revision 5 - changed for Madhouse 2.1
  6. ; Revision 6 - bugfixed for Madhouse 2.1(1). Update facility.
  7. ; Revision 7 - change to be compatible to Installer 43.3
  8.  
  9. (complete 0)
  10.  
  11. (set #mainprgsource "/Madhouse")
  12. (set #mainprgdest "SYS:WBStartup")
  13.  
  14. ; File-sizes for space check. Including icons.
  15. (set #size-mainprg 39000 )
  16. (set #size-locale 14000 )
  17. (set #size-configed 116000 )
  18. (set #size-blankers 290000 )
  19. (set #size-germandoc 155000 )
  20. (set #size-englishdoc 98000 )
  21. (set #size-importhelp 70000 )
  22.  
  23. (set #updatemode 0)
  24.  
  25. (if (= @language "deutsch") (
  26.     (set #def-anleit 0)
  27.     (set #size-defaultdoc #size-germandoc)
  28.     
  29.    (set #wrong-os
  30.     (cat "\nTut uns leid, Madhouse benötigt OS v2.04 oder höher!!\n"))
  31.     
  32.     (set #diskfull
  33.     (cat "Das Installationsscript muß leider abbrechen, weil auf der "
  34.          "Festplattenpartition \"%s\" nicht genug Platz "
  35.           "vorhanden ist." ))
  36.     
  37.     (set #copying-mainprg
  38.     (cat "\nJetzt wird das Programm Madhouse in Ihre "
  39.                 "SYS:WBStartup-Schublade kopiert. Dort wird es dann nach "
  40.                     "jedem Reset gestartet.\n"
  41.                     "Dieses Programm verwaltet die "
  42.                     "Blanker, das Einstellungsprogramm muß ebenfalls damit "
  43.                     "aufgerufen werden."))
  44.     
  45.     (set #select-defdir
  46.     (cat "Bitte wählen Sie jetzt die Schublade, in der der "
  47.                 "Anleitungstext, der MadhouseConfigEd und die Blanker installiert werden sollen.\n"
  48.                     "In diesem Verzeichnis sollten mindestens 630 KB frei sein!\n" ))
  49.     
  50.     (set #select-dir-prompt
  51.     (cat
  52.                 "Wählen Sie das Verzeichnis, in dem Madhouse installiert "
  53.                     "werden soll. Vergessen Sie nicht, ein neues Unterverzeichnis "
  54.                     "anzulegen, falls Sie eines wünschen!" ))
  55.     
  56.     (set #select-dir-help
  57.     (cat
  58.                 "Wie vorhin gesagt wurde, sollten Sie hier das Zielverzeichnis "
  59.                     "für Madhouse auswählen, in das die Anleitungen, der MadhouseConfigEd und "
  60.                     "die Blanker geschrieben werden.\nUm ein neues Verzeichnis anzulegen, "
  61.                     "benutzen Sie \"Make new drawer...\" und geben Sie den Namen in das Textfeld "
  62.                     "ein."))
  63.     
  64.     (set #no-min-space
  65.     (cat "Leider reicht der Platz auf der ausgewählten Festplatte "
  66.          "nicht mal für die nötigsten Dateien. Bitte wählen Sie einen anderen "
  67.           "Pfad (\"Proceed\") oder brechen Sie die Installation ab "
  68.           "(\"Abort Install\")." ))
  69.     (set #no-doc-space
  70.     (cat "Der Platz auf der ausgewählten Diskette / Festplatte reicht zwar für "
  71.          "die nötigsten Dateien, aber die deutsche Anleitung paßt schon nicht "
  72.           "mehr. Wollen Sie einen neuen Pfad wählen?" ))
  73.     (set #yes
  74.     (cat "Ja." ))
  75.     (set #no
  76.     (cat "Nein." ))
  77.     
  78.     (set #doing-docs
  79.     (cat "Die deutsche Anleitung wird kopiert." ))
  80.     
  81.     (set #doing-configed
  82.     (cat "\nJetzt wird der MadhouseConfigEd kopiert." ))
  83.     
  84.     (set #blank 
  85.     (cat"\nJetzt werden die Blanker kopiert." ))
  86.                 
  87.     (set #icontext
  88.     (cat "Für das Madhouse-Programm in WBStartup/ stehen sieben Icons zur Auswahl (Zur "
  89.          "Entscheidungshilfe zuerst in Icons/ ansehen, dann fortfahren.)\n"
  90.           "MWB=Die MagicWB-Farben müssen installiert sein."))
  91.     (set #iconchoices-1
  92.     (cat "Standard-Icon (Hauptfenster)" ))
  93.     (set #iconchoices-2
  94.     (cat "Schwarzer Keil (MWB)" ))
  95.     (set #iconchoices-3
  96.     (cat "Monitor" ))
  97.     (set #iconchoices-4
  98.     (cat "Monitor (MWB)" ))
  99.     (set #iconchoices-5
  100.     (cat "Schwarzer Monitor" ))
  101.     (set #iconchoices-6
  102.     (cat "Schwarzer Monitor (MWB)" ))
  103.     (set #iconchoices-7
  104.     (cat "Madhouse-Schriftzug" ))
  105.     
  106.     (set #diskfull-locale
  107.     (cat "Dies ist zwar ein Amiga mit OS 2.1 oder höher, die deutschsprachigen "
  108.          "Locale-Dateien können jedoch trotzdem nicht installiert werden, weil "
  109.           "auf der zuständigen Festplattenpartition nicht mehr "
  110.           "genügend Platz ist." ))
  111.     (set #locale-update
  112.     (cat "Die Locale-Dateien sind bereits vorhanden und werden gleich erneuert. "
  113.          "Es ist jedoch möglich, daß das Betriebssystem diese Daten noch im Speicher "
  114.           "hält, und Madhouse beim Start die alten Daten aus dem Speicher bekommt. "
  115.           "Sie umgehen diese Situation durch a) einen Reset nach der Installation oder "
  116.           "b) durch Beenden von Madhouse und Eingeben von \"avail flush\" in einer Shell, "
  117.           "dann können Sie das neue Madhouse starten." ))
  118.     
  119.     (set #use-locale
  120.     (cat "TOLL! Dies ist ein Amiga mit OS 2.1 oder höher! Wenn Sie also wollen, können "
  121.                 "die Programtexte von Madhouse auf deutsch erscheinen.\n"
  122.                     "Sollen die deutschen Locale-Texte installiert werden?"))
  123.     (set #locale-1
  124.     (cat "Ja" ))
  125.     (set #locale-2
  126.     (cat "Diesen Teil überspringen" ))
  127.     
  128.     ; canceled.
  129.     (set #graphicext
  130.     (cat "Vom Blanker Stars sind zwei Versionen verfügbar. Eine, die garantiert funktioniert, "
  131.          "und eine, die mit Grafikkarten (nicht dem AGA-Chipset, das läuft!) Probleme machen "
  132.           "wird. Wurde eine besondere Grafikkarte installiert?"))
  133.     (set #graphicext-1
  134.     (cat "Ja / Ich weiß nicht."))
  135.     (set #graphicext-2
  136.     (cat "Nein."))
  137.     (set #graphicexthelp
  138.     (cat "Wer sich hier nicht schlüssig ist, kann es vorerst auch mit \"Nein\" versuchen. "
  139.          "Der Bildschirmaufbau von Stars kommt dann wahrscheinlich durcheinander, wenn eine "
  140.           "Grafikkarte im Rechner ist.\nDas AGA-Chipset ist im A1200 und A4000 eingebaut und "
  141.           "macht keine Probleme." ))
  142.     
  143.     ; canceled.
  144.     (set #delprefs
  145.     (cat "Alte Einstellungsdateien \"ENV:\" und \"ENVARC:Madhouse.prefs\" müssen gelöscht werden!!"))
  146.     
  147.     (set #extro
  148.     (cat "Madhouse wurde korrekt installiert. Beim Systemstart wird das Hauptprogramm "
  149.               "von nun an automatisch aktiviert, solange Sie nicht das Programm SYS:WBStartup/Madhouse "
  150.                   "löschen. Dort können Sie es jetzt auch direkt aufrufen, um einen Reset zu "
  151.                   "umgehen.\n\n"
  152.                   "Viel Spaß!" ))
  153.     
  154.     (set #updating
  155.     (cat "Madhouse ist bereits installiert! Das Update wird vollzogen...\nWenn Madhouse "
  156.           "im Moment läuft, dann beende es bitte JETZT!" ))
  157. ))
  158.  
  159.  
  160. (if (<> @language "deutsch") (
  161.     (set #def-anleit 1)
  162.     (set size-defaultdoc size-englishdoc)
  163.  
  164.    (set #wrong-os
  165.     (cat "\nSorry, Madhouse needs OS 2.04 or higher!\n"))
  166.         
  167.     (set #diskfull
  168.     (cat "The script has to abort, because the partition \"%s\" does "
  169.          "not have enough free disk space." ))
  170.     
  171.     (set #copying-mainprg
  172.     (cat "\nNow, the programm Madhouse will be copied into your SYS:WBStartup-drawer. "
  173.          "There it will be started after every reset. This program handles the "
  174.           "blankers, and you have to run the prefs-editor \"MadhouseConfigEd\" from it."))
  175.     
  176.     (set #select-defdir
  177.     (cat "Please select the drawer, in which you want to copy the doc, MadhouseConfigEd "
  178.          "and the blankers in the following requester.\nYou will need 575 KB of "
  179.           "disk space."))
  180.     
  181.     (set #select-dir-prompt
  182.     (cat "Select the drawer in which you want to install Madhouse. If you prefer an own "
  183.          "subdirectory for Madhouse, please create one!" ))
  184.     
  185.     (set #select-dir-help
  186.     (cat "The script will copy MadhouseConfigEd, the docs and the blankers into the "
  187.          "drawer you have to select here. Create a new directory by using "
  188.           "\"Make New Drawer...\" and entering the name of it into the string gadget." ))
  189.     
  190.     (set #doing-docs
  191.     (cat "Copying english documentation." ))
  192.     
  193.     (set #doing-configed
  194.     (cat "\nNow, MadhouseConfigEd will be copied." ))
  195.     
  196.     (set #blank 
  197.     (cat"\nNow, the blankers will be copied." ))
  198.                 
  199.     (set #icontext
  200.     (cat "You have got the choice out of seven icons for the Madhouse-program (in "
  201.          "SYS:WBStartup). To make a decision, you can look at the icons right now "
  202.           "(\"Icons\"-drawer) first. MWB = you "
  203.           "need the MagicWB-colors on your Workbench."))
  204.     (set #iconchoices-1
  205.     (cat "Standard-Icon (from Madhouse-dir)" ))
  206.     (set #iconchoices-2
  207.     (cat "Colored points & black area (MWB)" ))
  208.     (set #iconchoices-3
  209.     (cat "Monitor" ))
  210.     (set #iconchoices-4
  211.     (cat "Monitor (MWB)" ))
  212.     (set #iconchoices-5
  213.     (cat "Black Monitor" ))
  214.     (set #iconchoices-6
  215.     (cat "Black Monitor (MWB)" ))
  216.     (set #iconchoices-7
  217.     (cat "Madhouse-Text" ))
  218.     
  219.     ; Obsolete, english strings are built-in.
  220.     (set #use-locale
  221.     (cat "" ))
  222.     (set #locale-1
  223.     (cat "" ))
  224.     (set #locale-2
  225.     (cat "" ))
  226.     
  227.     ; canceled.
  228.     (set #graphicext
  229.     (cat "The Blanker Stars is available in two versions, one that works in every case and one "
  230.          "that would make troubles with graphic extensions. The AGA-Chipset works with both. "
  231.           "Do you have installed a graphic extension?"))
  232.     (set #graphicext-1
  233.     (cat "Yes / I don't know."))
  234.     (set #graphicext-2
  235.     (cat "No"))
  236.     (set #graphicexthelp
  237.     (cat "If you don't know the answer, you should perhaps even try \"Yes\", because you would "
  238.          "know if you've had added something to your Amiga...\nThe AGA-Chipset is in every A1200 "
  239.           "and A4000 and makes no troubles."))
  240.     
  241.     ; canceled.
  242.     (set #delprefs
  243.     (cat "Old preference files \"ENV:\" and \"ENVARC:Madhouse.prefs\" have to be deleted!!"))
  244.     
  245.     (set #extro
  246.     (cat "Madhouse was installed correctly. While booting, the main program \"Madhouse\" "
  247.          "will be started automatically, as long as you don't delete it (it is in "
  248.           "SYS:WBStartup). You can start it directly, if you don't want to reset your "
  249.           "machine.\nEspecially if you do not own a hard disk, you should read the "
  250.           "doc, otherwise you should it do anyway, of course...\n\nEnjoy!"))
  251.     (set #updating
  252.     (cat "Madhouse is already installed! Updating...\nIf Madhouse is running at the "
  253.           "moment, please quit it NOW." ))
  254. ))
  255.  
  256.  
  257.  
  258. ;  **** Auf OS 2.04 checken.
  259.  
  260. (if (< (/ (getversion) 65536) 37)
  261.     (
  262.         (message #wrong-os)
  263.         (exit (quiet))
  264.     )
  265. )
  266. (complete 1)
  267.  
  268.  
  269.  
  270. ;  **** Update?
  271.  
  272. (if (exists "SYS:WBStartup/Madhouse") (set #updatemode 1))
  273. (if (exists "SYS:WBStartup/WBStartup (Enabled)/Madhouse") (
  274.     (set #updatemode 1)
  275.     (set #mainprgdest "SYS:WBStartup/WBStartup (Enabled)")
  276. ))
  277. (if (exists "SYS:WBStartup/WBStartup (Disabled)/Madhouse") (
  278.     (set #updatemode 1)
  279.     (set #mainprgdest "SYS:WBStartup/WBStartup (Disabled)")
  280. ))
  281.  
  282. (if (= #updatemode 1) (
  283.     (message #updating)    
  284.     ;(run "convertprefs ENV:Madhouse.prefs")
  285.     ;(run "convertprefs ENVARC:Madhouse.prefs")
  286. ))
  287.  
  288.  
  289.  
  290.  
  291.  
  292. ;  **** Erster size-check
  293.  
  294. (set #wb-space (getdiskspace "SYS:" ))
  295.  
  296. (if (< #wb-space #size-mainprg) (
  297.     (abort (#diskfull (expandpath "SYS:")) )
  298. ))
  299.  
  300. (complete 2)
  301.  
  302.  
  303.  
  304. ;  **** Main-Program in SYS:WBStartup/
  305.  
  306. (complete 0)
  307.  
  308. (message #copying-mainprg )
  309.  
  310. (copyfiles
  311.   (source #mainprgsource)
  312.   (dest #mainprgdest)
  313. )
  314. (complete 10)
  315.  
  316.  
  317.  
  318. ;  **** Icon for Main-Program
  319.  
  320. (if (= #updatemode 0) (
  321.     ; (run ("delete SYS:WBStartup/Madhouse.info"))
  322.     (set #icontype (askchoice
  323.             (prompt #icontext )
  324.             (help    ""    )
  325.             (choices #iconchoices-1 #iconchoices-2 #iconchoices-3 #iconchoices-4 #iconchoices-5 #iconchoices-6 #iconchoices-7 )
  326.             (default 5)
  327.         )
  328.     )
  329.     (set #icondest "BlaBla!")
  330.     (if (= #icontype 0) (
  331.         (set #iconsource "/Madhouse.info")
  332.         (set #icondest "SYS:WBStartup/Madhouse.info")
  333.     ))
  334.     (if (= #icontype 1) (
  335.         (set #iconsource "/Icons/Madhouse_MWB1.info")
  336.         (set #icondest "SYS:WBStartup/Madhouse_MWB1.info")
  337.     ))
  338.     (if (= #icontype 2) (
  339.         (set #iconsource "/Icons/Madhouse2.info")
  340.         (set #icondest "SYS:WBStartup/Madhouse2.info")
  341.     ))
  342.     (if (= #icontype 3) (
  343.         (set #iconsource "/Icons/Madhouse_MWB2.info")
  344.         (set #icondest "SYS:WBStartup/Madhouse_MWB2.info")
  345.     ))
  346.     (if (= #icontype 4) (
  347.         (set #iconsource "/Icons/Madhouse3.info")
  348.         (set #icondest "SYS:WBStartup/Madhouse3.info")
  349.     ))
  350.     (if (= #icontype 5) (
  351.         (set #iconsource "/Icons/Madhouse_MWB3.info")
  352.         (set #icondest "SYS:WBStartup/Madhouse_MWB3.info")
  353.     ))
  354.     (if (= #icontype 6) (
  355.         (set #iconsource "/Icons/Madhouse4.info")
  356.         (set #icondest "SYS:WBStartup/Madhouse4.info")
  357.     ))
  358.     (copyfiles
  359.         (source #iconsource)
  360.         (dest "SYS:WBStartup")
  361.     )
  362.     (run ("rename %s SYS:WBStartup/Madhouse.info" #icondest ))
  363. ))
  364. (complete 17)
  365.  
  366.  
  367.  
  368. ;  **** Locale
  369.  
  370. (if (> (/ (getversion) 65536) 37)
  371.     (
  372.         (if (<> #def-anleit 1 ) (
  373.  
  374.             (set #loc-space (getdiskspace "LOCALE:" ))
  375.             (if (< #loc-space size-locale) (
  376.                     (message ( #diskfull-locale ))
  377.                 )(
  378.                     (set #useloc 0)
  379.                     (if (= #updatemode 1) (
  380.                         (if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (set #useloc 1))
  381.                     )(
  382.                         (set #useloc  (askbool (prompt #use-locale)
  383.                                      (help "")
  384.                                      (choices #locale-1 #locale-2 )) )
  385.                     ))
  386.                     (if (= #useloc 1)
  387.                     (
  388.                         ;(if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (
  389.                         ;   (message (#locale-update))
  390.                         ;))
  391.                         (copyfiles
  392.                            (source "/locale/deutsch/madhouse.catalog")
  393.                            (dest "LOCALE:Catalogs/deutsch")
  394.                         )    
  395.                         (copyfiles
  396.                            (source "/locale/deutsch/madhousebg.catalog")
  397.                            (dest "LOCALE:Catalogs/deutsch")
  398.                         )
  399.                     ))
  400.             ))
  401.         ))
  402.         (run "c:avail flush")
  403.     )
  404. )
  405. (complete 27)
  406.  
  407.  
  408.  
  409. ;  **** Set directory for docs, blankers etc...
  410.  
  411. (set #min-space (+ #size-configed #size-blankers))
  412. (set #doc-space (+ #min-space #size-defaultdoc))
  413.  
  414. (set #loopagain 1)
  415.  
  416. (if (= #updatemode 1) (
  417.     (set #loopagain 0)
  418.     (run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
  419.     (set #gtt (getenv "Gettooltype"))
  420.     (delete "ENV:Gettooltype")
  421.     (if (exists #gtt) (
  422.         (set @default-dest (pathonly #gtt))
  423.     )(
  424.         (set #loopagain 1)
  425.         (message #select-defdir )
  426.     ))
  427. )(
  428.     (message #select-defdir )
  429. ))
  430.  
  431. (while #loopagain (
  432.     (set @default-dest
  433.       (askdir
  434.         (prompt #select-dir-prompt )
  435.         (help #select-dir-help )
  436.          (default ":")
  437.       )
  438.     )
  439.     
  440.     (set #avail-space (getdiskspace @default-dest))
  441.  
  442.     (if (< #avail-space #min-space) (
  443.         ; Viel zu wenig Platz für's nötigste
  444.         (message #no-min-space)
  445.     )(
  446.         (if (< #avail-space #doc-space) (
  447.             ; Blanker passen, sonst nichts.
  448.             (if (askbool (prompt #no-doc-space)
  449.              (help "")
  450.              (choices #yes #no ))
  451.             (
  452.                 (set #loopagain 1)
  453.             )(
  454.                 (set #loopagain 0)
  455.             ))
  456.         )(
  457.             ; Alles paßt.
  458.             (set #loopagain 0)
  459.         ))
  460.     ))
  461. ))
  462.  
  463. (complete 35)
  464.  
  465.  
  466.  
  467. ;  **** Doc-Files
  468.  
  469. (working #doing-docs)
  470.  
  471. (if (> #avail-space #doc-space) (
  472.     (if (= #def-anleit 1) ( 
  473.         (copyfiles
  474.             (source "/Docs/Doc.guide" )
  475.            (dest @default-dest)
  476.             (infos)
  477.         )
  478.         (if (NOT (OR (exists "S:Madhouse.key") (exists (tackon @default-dest "Madhouse.key")))) (
  479.             (copyfiles
  480.                 (source "/Docs/Registration_E.txt" )
  481.                (dest @default-dest)
  482.                 (infos)
  483.             )
  484.         ))
  485.     )(
  486.         (copyfiles
  487.             (source "/Docs/Anleitung.guide" )
  488.            (dest @default-dest)
  489.             (infos)
  490.         )
  491.         (if (NOT (OR (exists "S:Madhouse.key") (exists (tackon @default-dest "Madhouse.key")))) (
  492.             (copyfiles
  493.                 (source "/Docs/Registration_D.txt" )
  494.                (dest @default-dest)
  495.                 (infos)
  496.             )
  497.         ))
  498.     ))
  499. ))
  500.  
  501. (complete 45)
  502.  
  503.  
  504.  
  505. ;  **** MadhouseConfigEd
  506.  
  507. (message #doing-configed)
  508. (copyfiles
  509.    (source "/MadhouseConfigEd")
  510.    (dest @default-dest)
  511. )
  512. (complete 55)
  513.  
  514.  
  515.  
  516. ;  **** Blankers
  517.  
  518. ;canceled
  519. ;(set gestars 0)
  520. ;(if (askbool (prompt #graphicext)
  521. ;             (help #graphicexthelp)
  522. ;             (choices #graphicext-1 #graphicext-2 ))
  523. ;(
  524. ;   (set gestars 1)
  525. ;))
  526.  
  527. (message #blank )
  528.  
  529. (set #bl-dest ( tackon @default-dest "Blankers" ) )
  530.  
  531. (if (= #updatemode 0 ) (makedir #bl-dest ) )
  532.  
  533. (copyfiles
  534.     (source "/blankers" )
  535.     (dest #bl-dest)
  536.     (help "" )
  537.     (all)
  538.     (infos)
  539. )
  540.  
  541. ;(if (= gestars 1) (
  542. ;    (copyfiles
  543. ;        (source "/blankers/Stars/blanker_safe" )
  544. ;        (dest (cat bl-dest "/Stars") )
  545. ;        (newname "blanker")
  546. ;        (help "" )
  547. ;        (infos)
  548. ;    )
  549. ;    (delete (cat bl-dest "/Stars/blanker_safe"))
  550. ;))
  551.  
  552. (copyfiles
  553.     (source "/blankers.info" )
  554.     (dest @default-dest )
  555.     (help "" )
  556. )
  557.  
  558. (complete 80)
  559.  
  560.  
  561.  
  562. ;  **** ImportHelp
  563.  
  564. (set #imphelp-dest ( tackon @default-dest "ImportHelp" ) )
  565.  
  566. (if (= #updatemode 0 ) (makedir #imphelp-dest ) )
  567.  
  568. (copyfiles
  569.     (source "/ImportHelp")
  570.     (dest #imphelp-dest)
  571.     (help "" )
  572.     (all)
  573.     (infos)
  574. )
  575.  
  576. (complete 90)
  577.  
  578.  
  579.  
  580. ;  **** Set ToolType for SYS:WBStartup/Madhouse
  581.  
  582. (if (= #updatemode 0) (
  583.     (tooltype  (dest "SYS:WBStartup/Madhouse")
  584.                (settooltype "CONFIGED" (tackon @default-dest "MadhouseConfigEd"))
  585.     )
  586. ))
  587. (complete 95)
  588.  
  589.  
  590. ;
  591. ;  **** Extro
  592.  
  593. (message #extro)
  594.  
  595.  
  596.  
  597. ;   **** Finished!
  598.  
  599.  
  600.